home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / hidetbar / hidetbar.frm < prev    next >
Text File  |  1996-12-31  |  2KB  |  75 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Hide/Show Taskbar"
  4.    ClientHeight    =   720
  5.    ClientLeft      =   2610
  6.    ClientTop       =   3480
  7.    ClientWidth     =   4125
  8.    Height          =   1125
  9.    Left            =   2550
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   720
  12.    ScaleWidth      =   4125
  13.    Top             =   3135
  14.    Width           =   4245
  15.    Begin VB.CommandButton Command3 
  16.       Caption         =   "Close"
  17.       Height          =   495
  18.       Left            =   2760
  19.       TabIndex        =   2
  20.       Top             =   120
  21.       Width           =   1215
  22.    End
  23.    Begin VB.CommandButton Command2 
  24.       Caption         =   "Show"
  25.       Height          =   495
  26.       Left            =   1440
  27.       TabIndex        =   1
  28.       Top             =   120
  29.       Width           =   1215
  30.    End
  31.    Begin VB.CommandButton Command1 
  32.       Caption         =   "Hide"
  33.       Height          =   495
  34.       Left            =   120
  35.       TabIndex        =   0
  36.       Top             =   120
  37.       Width           =   1215
  38.    End
  39. End
  40. Attribute VB_Name = "Form1"
  41. Attribute VB_Creatable = False
  42. Attribute VB_Exposed = False
  43. Option Explicit
  44.  
  45. Dim hwnd1 As Long
  46.  
  47. Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  48. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  49.  
  50. Const SWP_HIDEWINDOW = &H80
  51.  
  52. Const SWP_SHOWWINDOW = &H40
  53.  
  54. Private Sub Command1_Click()
  55.  
  56. hwnd1 = FindWindow("Shell_traywnd", "")
  57. Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
  58.  
  59. End Sub
  60.  
  61.  
  62. Private Sub Command2_Click()
  63.  
  64. Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
  65.  
  66. End Sub
  67.  
  68.  
  69. Private Sub Command3_Click()
  70.     Set Form1 = Nothing
  71.     End
  72. End Sub
  73.  
  74.  
  75.